TITL DAI FIRMWARE CBBF-CD8A  V1.0  Rev.1
        ORG   :CBBF
*
*
*
**************************
* STRINGS BASIC COMMANDS *
**************************
*
* The first byte of each string is a length byte.
*
* The first byte after the string is the 'type'
* byte. It is used to compose the TOKEN of the
* particular Basic command:
*    type byte, ANI :3F, ORI :80, gives TOKEN.
*
* Commands with type bytes bit 7=1 can be executed
* during a program run. If bit 6=1, commands are
* valid as direct command.
*
* The address given is the location of the encoding
* routine for this particular command. These
* routines can be found in ROM bank 3.
*
*CMDTB
SNEW    DATA  :03
        DATA  :4E       N
        DATA  :45       E
        DATA  :57       W
        DATA  :81
        DBL   :E369
*
SCONT   DATA  :04
        DATA  :43       C
        DATA  :4F       O
        DATA  :4E       N
        DATA  :54       T
        DATA  :82
        DBL   :E369
*
SSTOP   DATA  :04
        DATA  :53       S
        DATA  :54       T
        DATA  :4F       O
        DATA  :50       P
        DATA  :43
        DBL   :E369
*
SEND    DATA  :03
        DATA  :45       E
        DATA  :4E       N
        DATA  :44       D
        DATA  :44
        DBL   :E369
*
SREST   DATA  :07
        DATA  :52       R
        DATA  :45       E
        DATA  :53       S
        DATA  :54       T
        DATA  :4F       O
        DATA  :52       R
        DATA  :45       E
        DATA  :C5
        DBL   :E369
*
SRET    DATA  :06
        DATA  :52       R
        DATA  :45       E
        DATA  :54       T
        DATA  :55       U
        DATA  :52       R
        DATA  :4E       N
        DATA  :46
        DBL   :E369
*
SRUN    DATA  :03
        DATA  :52       R
        DATA  :55       U
        DATA  :4E       N
        DATA  :87
        DBL   :E295
*
SGOTO   DATA  :04
        DATA  :47       G
        DATA  :4F       O
        DATA  :54       T
        DATA  :4F       O
        DATA  :49
        DBL   :E36A
*
SGOSUB  DATA  :05
        DATA  :47       G
        DATA  :4F       O
        DATA  :53       S
        DATA  :55       U
        DATA  :42       B
        DATA  :4A
        DBL   :E36A
*
SIMP    DATA  :03
        DATA  :49       I
        DATA  :4D       M
        DATA  :50       P
        DATA  :B5
        DBL   :E29F
*
SSAVA   DATA  :05
        DATA  :53       S
        DATA  :41       A
        DATA  :56       V
        DATA  :45       E
        DATA  :41       A
        DATA  :F9
        DBL   :E4A9
*
SLODA   DATA  :05
        DATA  :4C       L
        DATA  :4F       O
        DATA  :41       A
        DATA  :44       D
        DATA  :41       A
        DATA  :FA
        DBL   :E4A9
*
SOUT    DATA  :03
        DATA  :4F       O
        DATA  :55       U
        DATA  :54       T
        DATA  :CE
        DBL   :E302
*
SPOKE   DATA  :04
        DATA  :50       P
        DATA  :4F       O
        DATA  :4B       K
        DATA  :45       E
        DATA  :CF
        DBL   :E302
*
SWAIT   DATA  :04
        DATA  :57       W
        DATA  :41       A
        DATA  :49       I
        DATA  :54       T
        DATA  :D0
        DBL   :E259
*
SLIST   DATA  :04
        DATA  :4C       L
        DATA  :49       I
        DATA  :53       S
        DATA  :54       T
        DATA  :D3
        DBL   :E228
*
SEDIT   DATA  :04
        DATA  :45       E
        DATA  :44       D
        DATA  :49       I
        DATA  :54       T
        DATA  :B6
        DBL   :E228
*
SSOUND  DATA  :05
        DATA  :53       S
        DATA  :4F       O
        DATA  :55       U
        DATA  :4E       N
        DATA  :44       D
        DATA  :D6
        DBL   :E317
*
SNOISE  DATA  :05
        DATA  :4E       N
        DATA  :4F       O
        DATA  :49       I
        DATA  :53       S
        DATA  :45       E
        DATA  :D7
        DBL   :E325
*
SENV    DATA  :08
        DATA  :45       E
        DATA  :4E       N
        DATA  :56       V
        DATA  :45       E
        DATA  :4C       L
        DATA  :4F       O
        DATA  :50       P
        DATA  :45       E
        DATA  :D8
        DBL   :E1F6
*
SCURS   DATA  :06
        DATA  :43       C
        DATA  :55       U
        DATA  :52       R
        DATA  :53       S
        DATA  :4F       O
        DATA  :52       R
        DATA  :D9
        DBL   :E302
*
SMODE   DATA  :04
        DATA  :4D       M
        DATA  :4F       O
        DATA  :44       D
        DATA  :45       E
        DATA  :DA
        DBL   :E1D1
*
SDOT    DATA  :03
        DATA  :44       D
        DATA  :4F       O
        DATA  :54       T
        DATA  :DB
        DBL   :E28F
*
SDRAW   DATA  :04
        DATA  :44       D
        DATA  :52       R
        DATA  :41       A
        DATA  :57       W
        DATA  :DC
        DBL   :E28C
*
SFILL   DATA  :04
        DATA  :46       F
        DATA  :49       I
        DATA  :4C       L
        DATA  :4C       L
        DATA  :DD
        DBL   :E28C
*
SCOLT   DATA  :06
        DATA  :43       C
        DATA  :4F       O
        DATA  :4C       L
        DATA  :4F       O
        DATA  :52       R
        DATA  :54       T
        DATA  :DE
        DBL   :E30B
*
SCOLG   DATA  :06
        DATA  :43       C
        DATA  :4F       O
        DATA  :4C       L
        DATA  :4F       O
        DATA  :52       R
        DATA  :47       G
        DATA  :DF
        DBL   :E30B
*
SINPUT  DATA  :05
        DATA  :49       I
        DATA  :4E       N
        DATA  :50       P
        DATA  :55       U
        DATA  :54       T
        DATA  :60
        DBL   :E115
*
SDATA   DATA  :04
        DATA  :44       D
        DATA  :41       A
        DATA  :54       T
        DATA  :41       A
        DATA  :62
        DBL   :E8A2
*
SREAD   DATA  :04
        DATA  :52       R
        DATA  :45       E
        DATA  :41       A
        DATA  :44       D
        DATA  :63
        DBL   :E127
*
SLET    DATA  :03
        DATA  :4C       L
        DATA  :45       E
        DATA  :54       T
        DATA  :E4
        DBL   :E0FE
*
SIF     DATA  :02
        DATA  :49       I
        DATA  :46       F
        DATA  :66
        DBL   :E0BC
*
SREM    DATA  :03
        DATA  :52       R
        DATA  :45       E
        DATA  :4D       M
        DATA  :69
        DBL   :E366
*
SFOR    DATA  :03
        DATA  :46       F
        DATA  :4F       O
        DATA  :52       R
        DATA  :EA
        DBL   :E05F
*
SNEXT   DATA  :04
        DATA  :4E       N
        DATA  :45       E
        DATA  :58       X
        DATA  :54       T
        DATA  :EB
        DBL   :E0A9
*
SPRINT  DATA  :05
        DATA  :50       P
        DATA  :52       R
        DATA  :49       I
        DATA  :4E       N
        DATA  :54       T
        DATA  :ED
        DBL   :E19F
*
S?      DATA  :01
        DATA  :3F       ?  (abbr. for PRINT)
        DATA  :ED
        DBL   :E19F
*
SON     DATA  :02
        DATA  :4F       O
        DATA  :4E       N
        DATA  :6E
        DBL   :E176
*
SDIM    DATA  :03
        DATA  :44       D
        DATA  :49       I
        DATA  :4D       M
        DATA  :F0
        DBL   :E166
*
        DATA  :03
        DATA  :2A       *
        DATA  :2A       *
        DATA  :2A       *
        DATA  :71
        DBL   :E366
*
SUT     DATA  :02
        DATA  :55       U
        DATA  :54       T
        DATA  :B2
        DBL   :E369
*
SCALM   DATA  :05
        DATA  :43       C
        DATA  :41       A
        DATA  :4C       L
        DATA  :4C       L
        DATA  :4D       M
        DATA  :F3
        DBL   :E344
*
SCLEAR  DATA  :05
        DATA  :43       C
        DATA  :4C       L
        DATA  :45       E
        DATA  :41       A
        DATA  :52       R
        DATA  :F4
        DBL   :E314
*
SLOAD   DATA  :04
        DATA  :4C       L
        DATA  :4F       O
        DATA  :41       A
        DATA  :44       D
        DATA  :CB
        DBL   :E355
*
SSAVE   DATA  :04
        DATA  :53       S
        DATA  :41       A
        DATA  :56       V
        DATA  :45       E
        DATA  :8C
        DBL   :E355
*
SCHECK  DATA  :05
        DATA  :43       C
        DATA  :48       H
        DATA  :45       E
        DATA  :43       C
        DATA  :4B       K
        DATA  :8D
        DBL   :E369
*
        DATA  :05       (Cancelled instr.)
        DATA  :00
        DATA  :52       R
        DATA  :41       A
        DATA  :53       S
        DATA  :45       E
        DATA  :FB
        DBL   :E873
*
SSTEP   DATA  :04
        DATA  :53       S
        DATA  :54       T
        DATA  :45       E
        DATA  :50       P
        DATA  :BC
        DBL   :E369
*
STRON   DATA  :04
        DATA  :54       T
        DATA  :52       R
        DATA  :4F       O
        DATA  :4E       N
        DATA  :FD
        DBL   :E369
*
STROF   DATA  :05
        DATA  :54       T
        DATA  :52       R
        DATA  :4F       O
        DATA  :46       F
        DATA  :46       F
        DATA  :FE
        DBL   :E369
*
STALK   DATA  :04
        DATA  :54       T
        DATA  :41       A
        DATA  :4C       L
        DATA  :4B       K
        DATA  :FB
        DBL   :E314
*
        DATA  :00       End of table
        DATA  :E5       Assignment (= LET)
        DBL   :E0FE
*
        DATA  :FF
        DATA  :FF
*
*********************
* RUN basiccmd TALK *
*********************
*
RTALK   CALL  :E6F8     (0) Get addr parameter
 REM block in HL
RTK10   MOV   A,M       Get code
        INX   H
        ORA   A
        RM              Ready if code = FF (end)
        CPI   :05
        JC    :CE45     Jump if freq. code
        CPI   :0C
        JC    :EE94     (0) Jump if volume code
        JMP   :EC6D     (0) Continu
*
***************
* STRING DATA *
***************
*
LC236   DATA  :08
        DATA  :57       W
        DATA  :41       A
        DATA  :49       I
        DATA  :54       T
        DATA  :20
        DATA  :4D       M
        DATA  :45       E
        DATA  :4D       M
*
LC237   DATA  :09
        DATA  :57       W
        DATA  :41       A
        DATA  :49       I
        DATA  :54       T
        DATA  :20
        DATA  :54       T
        DATA  :49       I
        DATA  :4D       M
        DATA  :45       E
*
*
*
        UNL
CMDTB   EQU SNEW
        LST
        END